unit RVFreeReg;
interface

  {$I RV_Defs.inc}

uses Classes,
    {$IFDEF RICHVIEWDEF6}
    DesignIntf, 
    {$ELSE}
    DsgnIntf,
    {$ENDIF}
     RichView, RVStyle, RVSEdit, PtblRV;

procedure Register;

implementation

{--------------------------------------------------------------}
procedure Register;
begin
  RegisterComponents('RichView', [TRVStyle, TRichView, TRVPrint]);
  RegisterComponentEditor(TRVStyle, TRVSEditor);
  RegisterPropertyEditor(TypeInfo(TFontInfos), TRVStyle, '', TRVSProperty);
end;

end.
